﻿Imports System.Windows.Forms

Public Class frmEditCategory

    Private Sub ntnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ntnNew.Click
        Dim frm As New frmNewCategory()
        If (frm.ShowDialog = Windows.Forms.DialogResult.OK) Then

        End If
    End Sub
    Private Sub frmEditCategories_KeyDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim KeyCode As Short = eventArgs.KeyCode
        Dim Shift As Short = eventArgs.KeyData \ &H10000
        If KeyCode = System.Windows.Forms.Keys.Enter Then
            MessageBox.Show(Shift.ToString)

            If Shift = 2 Then btnOk_Click(btnOk, New System.EventArgs())
        End If
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        MessageBox.Show("adasd")
    End Sub
End Class
